home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS02.ADF / Asm / setjmp.asm < prev    next >
Assembly Source File  |  1989-05-30  |  578b  |  23 lines
  1. ; setjmp.asm 
  2. ; 
  3. ; In the C program: have typedef int jmp_buf[13];
  4. ; 
  5. ; call with:
  6. ;   setjmp(environ);    where environ is declared as a jmp_buf;
  7. ; and
  8. ;   longjmp(environ,value);  value is the value to be returned to the
  9. ; caller of setjmp.  An integer;
  10.     RORG  0
  11.     XDEF  _setjmp
  12.     XDEF  _longjmp
  13. _setjmp:  movea.l   (sp)+,a1
  14.           movea.l   (sp),a0
  15.           movem.l   sp-a1/d7-d2,(a0)
  16.           moveq.l   #0,d0
  17.           jmp       (a1)
  18. _longjmp: movea.l   4(sp),a0
  19.           move.l    8(sp),d0
  20.           movem.l   (a0),sp-a1/d7-d2
  21.           jmp       (a1)
  22.     END
  23.